home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / GMS / Source / E / Screens / HiResScreen.e < prev    next >
Encoding:
Text File  |  1997-04-23  |  1.1 KB  |  45 lines
  1. /* HiRes Picture Display
  2. ** ---------------------
  3. ** Opens a screen of 640 pixels width in HIRES mode.  You can even try
  4. ** SuperHiRes (SHIRES) if you change the appropriate flag in the GameScreen
  5. ** structure.
  6. */
  7.  
  8. MODULE 'games','games/games'
  9.  
  10. PROC main()
  11. DEF screen:PTR TO gamescreen, pic:PTR TO picture
  12.  
  13.    IF gmsbase := OpenLibrary('GMS:GPI/Master.GPI',0)
  14.       SetUserPrefs(0)
  15.       IF (screen := AddScreen([TAGS,0,
  16.            GSA_SCRWIDTH,640,
  17.            GSA_SCRHEIGHT,256,
  18.            GSA_PLANES,4,
  19.            GSA_SCRMODE,HIRES,
  20.            TAGEND]))
  21.  
  22.          IF (pic := LoadPic([TAGS,0,
  23.             PCA_DATA,screen.memptr1,
  24.             PCA_WIDTH,640,
  25.             PCA_HEIGHT,256,
  26.             PCA_PLANES,4,
  27.             PCA_SCRMODE,screen.scrmode,
  28.             PCA_SCRTYPE,screen.scrtype,
  29.             PCA_OPTIONS,GETPALETTE,
  30.             PCA_FILE,'GMS:demos/data/PIC.Pic640x256',
  31.             TAGEND]))
  32.  
  33.             screen.palette := pic.palette
  34.             UpdatePalette(screen)
  35.             ShowScreen(screen)
  36.             WaitLMB()
  37.          FreePic(pic)
  38.          ENDIF
  39.       DeleteScreen(screen)
  40.       ENDIF
  41.    CloseGMS()
  42.    ENDIF
  43. ENDPROC
  44.  
  45.